object frmPresupCombinado: TfrmPresupCombinado
  Left = 348
  Top = 103
  Width = 800
  Height = 568
  Caption = 'Presupuesto Combinado'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel14: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 534
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 13555670
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object pnlRenglones: TPanel
      Left = 2
      Top = 117
      Width = 788
      Height = 379
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 10791869
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -9
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      DesignSize = (
        788
        379)
      object Label15: TLabel
        Left = 8
        Top = 4
        Width = 120
        Height = 13
        Caption = 'Tipolog'#237'as de Obras:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel19: TPanel
        Left = 320
        Top = 2
        Width = 466
        Height = 375
        Align = alRight
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          466
          375)
        object Label3: TLabel
          Left = 341
          Top = 318
          Width = 28
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Total:'
          Color = cl3DLight
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label24: TLabel
          Left = 348
          Top = 302
          Width = 21
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'IVA:'
          Color = cl3DLight
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Shape8: TShape
          Left = 154
          Top = 279
          Width = 309
          Height = 3
          Anchors = [akRight, akBottom]
          Brush.Color = 9803157
          Pen.Style = psClear
        end
        object Label34: TLabel
          Left = -94
          Top = -14
          Width = 44
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Subtotal:'
          Color = cl3DLight
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object lblAprobado: TLabel
          Left = 8
          Top = 288
          Width = 169
          Height = 40
          Anchors = [akLeft, akBottom]
          AutoSize = False
          Caption = 'Aprobado'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -32
          Font.Name = 'Tahoma'
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
          Visible = False
        end
        object DBText2: TDBText
          Left = 401
          Top = 317
          Width = 48
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          AutoSize = True
          DataField = 'totalGral'
          DataSource = sPresupuesto
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText3: TDBText
          Left = 401
          Top = 302
          Width = 48
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          AutoSize = True
          DataField = 'IVA'
          DataSource = sPresupuesto
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText4: TDBText
          Left = 401
          Top = 285
          Width = 48
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          AutoSize = True
          DataField = 'TOTAL'
          DataSource = sPresupuesto
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object grdCombinacion: TRxDBGrid
          Left = 8
          Top = 9
          Width = 451
          Height = 262
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataSource = sCombinacion
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clNavy
          TitleFont.Height = -9
          TitleFont.Name = 'Small Fonts'
          TitleFont.Style = []
          OnDblClick = grdCombinacionDblClick
          OnEnter = grdCombinacionEnter
          OnExit = DBEdit16Exit
          Columns = <
            item
              Expanded = False
              FieldName = 'ID_COMBINADO'
              Title.Alignment = taCenter
              Title.Caption = 'ID'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Small Fonts'
              Title.Font.Style = [fsBold]
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'denominacion'
              Title.Alignment = taCenter
              Title.Caption = 'Denominaci'#243'n'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Small Fonts'
              Title.Font.Style = [fsBold]
              Width = 242
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'totalFinal'
              Title.Alignment = taCenter
              Title.Caption = 'Total'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -9
              Title.Font.Name = 'Small Fonts'
              Title.Font.Style = [fsBold]
              Width = 73
              Visible = True
            end>
        end
        object Panel1: TPanel
          Left = 8
          Top = 334
          Width = 451
          Height = 35
          Anchors = [akLeft, akRight, akBottom]
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Color = 11580341
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          DesignSize = (
            451
            35)
          object nvgPre: TDBNavigator
            Left = 8
            Top = 7
            Width = 240
            Height = 23
            DataSource = sPresupuesto
            VisibleButtons = [nbPrior, nbNext, nbInsert, nbDelete, nbPost, nbCancel]
            Flat = True
            ConfirmDelete = False
            TabOrder = 0
            BeforeAction = nvgPreBeforeAction
            OnClick = nvgPreClick
          end
          object btnGrabarPresup: TBitBtn
            Left = 375
            Top = 7
            Width = 69
            Height = 23
            Anchors = [akTop, akRight]
            Caption = 'Grabar'
            Default = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = btnGrabarPresupClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
            Spacing = 0
          end
        end
      end
      object grdTipologia: TRxDBGrid
        Left = 8
        Top = 19
        Width = 305
        Height = 81
        DataSource = sTipologia
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clNavy
        TitleFont.Height = -9
        TitleFont.Name = 'Small Fonts'
        TitleFont.Style = []
        OnEnter = grdCombinacionEnter
        OnExit = DBEdit16Exit
        Columns = <
          item
            Expanded = False
            FieldName = 'ID_TIPOLOGIA'
            Title.Alignment = taCenter
            Title.Caption = 'ID'
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -9
            Title.Font.Name = 'Small Fonts'
            Title.Font.Style = [fsBold]
            Width = 49
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIPOLOGIA'
            Title.Alignment = taCenter
            Title.Caption = 'Tipolog'#237'a'
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -9
            Title.Font.Name = 'Small Fonts'
            Title.Font.Style = [fsBold]
            Width = 216
            Visible = True
          end>
      end
      object rdg: TRadioGroup
        Left = 8
        Top = 103
        Width = 305
        Height = 33
        Color = 13555670
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          'Todos'
          'Sin Aprobar'
          'Aprobados')
        ParentColor = False
        TabOrder = 2
        OnClick = rdgClick
      end
      object Panel2: TPanel
        Left = 205
        Top = 338
        Width = 107
        Height = 35
        Anchors = [akLeft, akBottom]
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 11580341
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object BitBtn1: TBitBtn
          Left = 17
          Top = 5
          Width = 75
          Height = 25
          Caption = 'Aceptar'
          Default = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BitBtn1Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
      end
      object grdPresupGral: TRxDBGrid
        Left = 8
        Top = 138
        Width = 305
        Height = 198
        Anchors = [akLeft, akTop, akBottom]
        DataSource = sPresupGral
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clNavy
        TitleFont.Height = -9
        TitleFont.Name = 'Small Fonts'
        TitleFont.Style = []
        OnDblClick = BitBtn1Click
        OnTitleClick = grdPresupGralTitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ID_PRESUPUESTO'
            Title.Alignment = taCenter
            Title.Caption = 'ID'
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -9
            Title.Font.Name = 'Small Fonts'
            Title.Font.Style = [fsBold]
            Width = 47
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DENOMINACION'
            Title.Alignment = taCenter
            Title.Caption = 'Denominaci'#243'n'
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -9
            Title.Font.Name = 'Small Fonts'
            Title.Font.Style = [fsBold]
            Width = 219
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 7
        Top = 338
        Width = 178
        Height = 35
        Anchors = [akLeft, akBottom]
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 11580341
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        object Label16: TLabel
          Left = 8
          Top = 17
          Width = 37
          Height = 13
          Caption = 'Filtrar:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object edtFiltro: TEdit
          Left = 56
          Top = 5
          Width = 80
          Height = 25
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnChange = edtFiltroChange
        end
        object btnDesfiltrar: TBitBtn
          Left = 144
          Top = 5
          Width = 26
          Height = 25
          Hint = 'Desfiltrar'
          Cancel = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = btnDesfiltrarClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333FFFFF333333000033333388888833333333333F888888FFF333
            000033338811111188333333338833FFF388FF33000033381119999111833333
            38F338888F338FF30000339119933331111833338F388333383338F300003391
            13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
            33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
            33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
            000039183811193333918338F8F833F83333838F000039118111933339118338
            F3833F83333833830000339111193333391833338F33F8333FF838F300003391
            11833338111833338F338FFFF883F83300003339111888811183333338FF3888
            83FF83330000333399111111993333333388FFFFFF8833330000333333999999
            3333333333338888883333330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
          Spacing = 2
        end
      end
    end
    object pnlDatos: TPanel
      Left = 2
      Top = 51
      Width = 788
      Height = 66
      Align = alTop
      Color = 12376542
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        788
        66)
      object Label6: TLabel
        Left = 120
        Top = 2
        Width = 22
        Height = 10
        Caption = 'CIRC.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label44: TLabel
        Left = 412
        Top = 2
        Width = 31
        Height = 10
        Caption = 'QUINTA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 165
        Top = 2
        Width = 24
        Height = 10
        Caption = 'SECC.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 365
        Top = 2
        Width = 35
        Height = 10
        Caption = 'CHACRA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label52: TLabel
        Left = 212
        Top = 2
        Width = 43
        Height = 10
        Caption = 'MANZANA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label46: TLabel
        Left = 266
        Top = 2
        Width = 38
        Height = 10
        Caption = 'PARCELA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label47: TLabel
        Left = 312
        Top = 2
        Width = 42
        Height = 10
        Caption = 'SUBPARC.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label45: TLabel
        Left = 458
        Top = 2
        Width = 43
        Height = 10
        Caption = 'FRACCION'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label48: TLabel
        Left = 511
        Top = 2
        Width = 59
        Height = 10
        Caption = 'SUP. TERRENO'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label49: TLabel
        Left = 594
        Top = 2
        Width = 72
        Height = 10
        Caption = 'SUP. EDIFICACION'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label53: TLabel
        Left = 120
        Top = 31
        Width = 46
        Height = 10
        Caption = 'LOCALIDAD'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label54: TLabel
        Left = 271
        Top = 31
        Width = 45
        Height = 10
        Caption = 'PROVINCIA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 384
        Top = 30
        Width = 42
        Height = 10
        Cursor = crHandPoint
        Caption = 'TIPOLOGIA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        OnClick = Label17Click
      end
      object imgObserva: TImage
        Left = 678
        Top = 3
        Width = 32
        Height = 33
        Cursor = crHandPoint
        Hint = 'Observaciones'
        Anchors = [akTop, akRight]
        ParentShowHint = False
        Picture.Data = {
          055449636F6E0000010002002020100000000000E80200002600000010101000
          00000000280100000E0300002800000020000000400000000100040000000000
          8002000000000000000000000000000000000000000000000000800000800000
          0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
          00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000
          000000000000000000000000000000000007000000000000B333333333333333
          3330700000000000B0000000000000000030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B088788888888888
          8030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0888888888888888030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B088788888888888
          8030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0888888888888888030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B088788888888888
          8030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0888888888888888030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF00000000000F
          F030700000000000B0FF0FF88888770FF030700000000000B000000F88870000
          0030700000000000BBBBBBB0F870BBBBBBB07000000000000000000007000000
          000700000000000000000000F880000000000000000000000000000000000000
          0000000000000000000000000000000000000000FFFFFFFFFF00000FFE000007
          FE000007FE000007FE000007FE000007FE000007FE000007FE000007FE000007
          FE000007FE000007FE000007FE000007FE000007FE000007FE000007FE000007
          FE000007FE000007FE000007FE000007FE000007FE000007FE000007FE000007
          FE000007FF00000FFFFE0FFFFFFE0FFFFFFFFFFF280000001000000020000000
          0100040000000000C00000000000000000000000000000000000000000000000
          00008000008000000080800080000000800080008080000080808000C0C0C000
          0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
          0000000000003333333330000000BFFFFFFFB0000000B8888888B0000000BFFF
          FFFFB0000000BFFFFFFFB0000000B8888888B0000000BFFFFFFFB0000000BFFF
          FFFFB0000000B8888888B0000000BFFFFFFFB0000000BFFFFFFFB0000000BF00
          000FB0000000BBBF8700B00000000000700007000000000000000000FFFFFFFF
          E0037FFFE003FFFFE0037000E0030000E0038888E0038888E0037000E0030000
          E0037FFFE003FFFFE0037000E0030000E0038FFFF003FFFFFE3F7000}
        Proportional = True
        ShowHint = True
        Stretch = True
        OnClick = imgObservaClick
      end
      object btnAprobado: TSpeedButton
        Left = 719
        Top = 2
        Width = 64
        Height = 37
        Hint = 'Aprobar presupuesto'
        Anchors = [akTop, akRight]
        Caption = 'Aprobar'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
          333333333F777773FF333333008888800333333377333F3773F3333077870787
          7033333733337F33373F3308888707888803337F33337F33337F330777880887
          7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
          7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
          0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
          03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
          033333337F73FF737F33B33B778000877333333373F777337333333B30888880
          33333333373FFFF73333333B3300000333333333337777733333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = btnAprobadoClick
      end
      object Label1: TLabel
        Left = 536
        Top = 30
        Width = 68
        Height = 10
        Cursor = crHandPoint
        Caption = 'INICIO DE OBRAS'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit4: TDBEdit
        Left = 120
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CIRCUNSCRIPCION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit5: TDBEdit
        Left = 166
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SECCION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit6: TDBEdit
        Left = 366
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CHACRA'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit7: TDBEdit
        Left = 412
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'QUINTA'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit15: TDBEdit
        Left = 212
        Top = 12
        Width = 48
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'MANZANA'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit9: TDBEdit
        Left = 266
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'PARCELA'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit10: TDBEdit
        Left = 312
        Top = 12
        Width = 48
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SUBPARCELA'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit8: TDBEdit
        Left = 458
        Top = 12
        Width = 48
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'FRACCION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit11: TDBEdit
        Left = 512
        Top = 12
        Width = 61
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SUPERFICIE_TERRENO'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit12: TDBEdit
        Left = 595
        Top = 12
        Width = 74
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SUPERFICIE_EDIFICACION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object TPanel
        Left = 8
        Top = 13
        Width = 81
        Height = 45
        Color = 13225169
        TabOrder = 12
        object Label5: TLabel
          Left = 16
          Top = 3
          Width = 57
          Height = 11
          Caption = 'Identificaci'#243'n '
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 32
          Top = 16
          Width = 12
          Height = 11
          Caption = 'del'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 24
          Top = 30
          Width = 37
          Height = 11
          Caption = 'inmueble'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 120
        Top = 41
        Width = 145
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        DataField = 'localidad'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 10
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object DBEdit3: TDBEdit
        Left = 271
        Top = 41
        Width = 105
        Height = 20
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'provincia'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 11
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object cmbTipologia: TDBLookupComboBox
        Left = 383
        Top = 41
        Width = 145
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        DataField = 'tipologia'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 13
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
      object barAvance: TProgressBar
        Left = 685
        Top = 42
        Width = 97
        Height = 16
        Anchors = [akTop, akRight]
        Min = 0
        Max = 20
        Smooth = True
        Step = 1
        TabOrder = 14
      end
      object DBEdit1: TDBEdit
        Left = 536
        Top = 41
        Width = 81
        Height = 18
        AutoSize = False
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'INICIO'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 15
        OnEnter = DBEdit16Enter
        OnExit = DBEdit16Exit
      end
    end
    object pnlGeneral: TPanel
      Left = 2
      Top = 2
      Width = 788
      Height = 49
      Align = alTop
      TabOrder = 0
      DesignSize = (
        788
        49)
      object Label20: TLabel
        Left = 115
        Top = 8
        Width = 54
        Height = 11
        Caption = 'Presupuesto'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object DBText1: TDBText
        Left = 98
        Top = 17
        Width = 71
        Height = 28
        Alignment = taRightJustify
        DataField = 'ID_PRESUPUESTO'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clGray
        Font.Height = -21
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 182
        Top = 9
        Width = 61
        Height = 11
        Caption = 'Denominaci'#243'n'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 203
        Top = 32
        Width = 40
        Height = 11
        Caption = 'Direcci'#243'n'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object btnCalPresup: TSpeedButton
        Left = 493
        Top = 2
        Width = 23
        Height = 24
        Hint = 'Calendar'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333333333333330000003338888888888888330000003304
          0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
          FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
          F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033F7777777777F4833000000330000000000003333000000333333333333
          333333000000333333333333333333000000}
        Layout = blGlyphRight
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = btnCalPresupClick
      end
      object Label39: TLabel
        Left = 517
        Top = 8
        Width = 26
        Height = 11
        Caption = 'Fecha'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label50: TLabel
        Left = 493
        Top = 32
        Width = 50
        Height = 11
        Caption = 'Plazo (d'#237'as)'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object TPanel
        Left = 8
        Top = 2
        Width = 81
        Height = 43
        Color = 13225169
        TabOrder = 1
        object Label11: TLabel
          Left = 8
          Top = 3
          Width = 68
          Height = 11
          Caption = 'Datos generales'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 32
          Top = 16
          Width = 12
          Height = 11
          Caption = 'del'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 16
          Top = 30
          Width = 52
          Height = 11
          Caption = 'presupuesto'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
      end
      object prov: TPanel
        Left = 628
        Top = 4
        Width = 155
        Height = 41
        Anchors = [akTop, akRight]
        Caption = 'prov'
        Color = 9946572
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label40: TLabel
          Left = 7
          Top = 4
          Width = 45
          Height = 11
          Caption = 'Proveedor'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 8
          Top = 16
          Width = 142
          Height = 19
          Ctl3D = False
          DataField = 'razon'
          DataSource = sPresupuesto
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          OnEnter = DBEdit16Enter
          OnExit = DBEdit16Exit
        end
      end
      object DBEdit16: TDBEdit
        Left = 248
        Top = 5
        Width = 241
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        DataField = 'DENOMINACION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit17: TDBEdit
        Left = 247
        Top = 27
        Width = 242
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        DataField = 'DIRECCION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object edtFecha: TDBEdit
        Left = 549
        Top = 4
        Width = 65
        Height = 18
        AutoSize = False
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'FECHA'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object DBEdit13: TDBEdit
        Left = 549
        Top = 28
        Width = 65
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'PLAZO_EJECUCION'
        DataSource = sPresupuesto
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
    end
    object Panel27: TPanel
      Left = 2
      Top = 496
      Width = 788
      Height = 36
      Align = alBottom
      BevelOuter = bvNone
      Color = clBtnHighlight
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      DesignSize = (
        788
        36)
      object Image4: TImage
        Left = 8
        Top = 8
        Width = 65
        Height = 25
        Picture.Data = {
          0A544A504547496D61676585100000FFD8FFE000104A46494600010101006000
          600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
          0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
          3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
          3232323232323232323232323232323232323232323232323232323232323232
          32323232323232323232323232FFC0001108012C028603012200021101031101
          FFC4001F0000010501010101010100000000000000000102030405060708090A
          0BFFC400B5100002010303020403050504040000017D01020300041105122131
          410613516107227114328191A1082342B1C11552D1F02433627282090A161718
          191A25262728292A3435363738393A434445464748494A535455565758595A63
          6465666768696A737475767778797A838485868788898A92939495969798999A
          A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
          D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
          01010101010101010000000000000102030405060708090A0BFFC400B5110002
          0102040403040705040400010277000102031104052131061241510761711322
          328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
          292A35363738393A434445464748494A535455565758595A636465666768696A
          737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
          A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
          E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F4EF
          15F8F22F0EDD9B2B7B37BCBB58FCC95533FBA0C76C631FC4CCC461723804E7A6
          77EC75051A723EA128B7B911F993C770D1AB47EE42B1007E27B724D797FC539F
          4883572F6AFF00F13396DCADDF9448DBB0AB42C7FDB0E154639C31CF4153DF78
          2FC4DE25697549CAD9CF7BA3C71CD19C2996618F91C1076A9C03C7422B0F6925
          26AD73D6583A2E8C272972DF76FE5D3EF3D466D4EC2DDE049EFADA27B8FF0052
          AF2AA997A7DDC9E7A8E9EB560C91895622EA246059509E4818C903DB23F315E4
          BAA7C3EF13EAAC93F9B650BD8D85B5AD92B12CD98C06660C3846DE3AF39071C5
          69EB5E1DF18EA9AD36BD6B241657F676F145651F9A195CB03E7EEEC396E3AE76
          8E9DAB9E5FCA73FD5A8BB7EF175BF976FEBA6A7A19BBB75B792E0DC44218F779
          92171B536FDEC9E831839F4C5469A958C91C72A5E5BB472BF9713ACAA43B671B
          41CF2720F1ED5E6C3C0DE23B2F0EEA7E18B292192C2F2F2271772CA77F945479
          C4A8E72595781D433722A07F87BAECBA6AE8D731D93D947ACC57AAF6F2794044
          C8C25545FE0209040E9927D28E797F28D61A86EEAADFF0EFFF0000F571344663
          08910CA064A6E1B80F5C53EB85F09F85B5CD23C5FA8EA1AADDC77B13DAA5B437
          59C4922A91B4B8FEF63827BE335DD56916DAD558E5AB08C2568CAE1451453320
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2802A1D2EC5AE4DCC96B1C93160C249177B2
          91D304E718ED8E956E8A281DDB0A28A281051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          40051451400514514005145140051451401FFFD9}
      end
      object Label14: TLabel
        Left = 743
        Top = 10
        Width = 30
        Height = 13
        Cursor = crHandPoint
        Anchors = [akTop, akRight]
        Caption = 'Volver'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label14Click
      end
      object lblProveedor: TLabel
        Left = 604
        Top = 10
        Width = 49
        Height = 13
        Cursor = crHandPoint
        Hint = 'Abre formulario para agregar o modificar proveedores'
        Anchors = [akTop, akRight]
        Caption = 'Proveedor'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
      end
      object lblLocalidad: TLabel
        Left = 532
        Top = 10
        Width = 46
        Height = 13
        Cursor = crHandPoint
        Hint = 
          'Abre formulario para agregar o modificar localidades y provincia' +
          's'
        Anchors = [akTop, akRight]
        Caption = 'Localidad'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
      end
      object lblTipologia: TLabel
        Left = 676
        Top = 10
        Width = 45
        Height = 13
        Cursor = crHandPoint
        Hint = 'Abre formulario para agregar o modificar tipolog'#237'as'
        Anchors = [akTop, akRight]
        Caption = 'Tipolog'#237'a'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
      end
      object Shape3: TShape
        Left = 517
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape4: TShape
        Left = 594
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape5: TShape
        Left = 669
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape7: TShape
        Left = 733
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akTop, akRight]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Panel28: TPanel
        Left = 80
        Top = 28
        Width = 705
        Height = 3
        Anchors = [akLeft, akRight, akBottom]
        Color = 10790052
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object cPresupuesto: TSQLClientDataSet
    CommandText = 'select * from PRESUPUESTO where id_presupuesto = :id_presupuesto'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFloat
        Name = 'id_presupuesto'
        ParamType = ptInput
      end>
    OnCalcFields = cPresupuestoCalcFields
    OnNewRecord = cPresupuestoNewRecord
    DBConnection = Datos.Con
    Left = 16
    Top = 184
    object cPresupuestoID_PRESUPUESTO: TFloatField
      FieldName = 'ID_PRESUPUESTO'
    end
    object cPresupuestoFECHA: TSQLTimeStampField
      Alignment = taCenter
      FieldName = 'FECHA'
      EditMask = '!99/99/00;1;_'
    end
    object cPresupuestoID_LOCALIDAD: TFloatField
      FieldName = 'ID_LOCALIDAD'
      Required = True
    end
    object cPresupuestoCIRCUNSCRIPCION: TSmallintField
      DefaultExpression = '0'
      FieldName = 'CIRCUNSCRIPCION'
    end
    object cPresupuestoSECCION: TStringField
      FieldName = 'SECCION'
      Size = 3
    end
    object cPresupuestoCHACRA: TStringField
      FieldName = 'CHACRA'
      Size = 6
    end
    object cPresupuestoQUINTA: TStringField
      FieldName = 'QUINTA'
      Size = 6
    end
    object cPresupuestoMANZANA: TStringField
      FieldName = 'MANZANA'
      Size = 6
    end
    object cPresupuestoFRACCION: TStringField
      FieldName = 'FRACCION'
      Size = 6
    end
    object cPresupuestoPARCELA: TStringField
      FieldName = 'PARCELA'
      Size = 6
    end
    object cPresupuestoSUBPARCELA: TStringField
      FieldName = 'SUBPARCELA'
      Size = 6
    end
    object cPresupuestoSUPERFICIE_TERRENO: TFloatField
      DefaultExpression = '0'
      FieldName = 'SUPERFICIE_TERRENO'
    end
    object cPresupuestoSUPERFICIE_EDIFICACION: TFloatField
      DefaultExpression = '0'
      FieldName = 'SUPERFICIE_EDIFICACION'
    end
    object cPresupuestoGANANCIA: TFloatField
      DefaultExpression = '0'
      FieldName = 'GANANCIA'
    end
    object cPresupuestoID_PROVEEDOR: TSmallintField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object cPresupuestoAPROBADO: TStringField
      FieldName = 'APROBADO'
      Size = 1
    end
    object cPresupuestoDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cPresupuestoTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupuestoPLAZO_EJECUCION: TSmallintField
      DefaultExpression = '0'
      FieldName = 'PLAZO_EJECUCION'
    end
    object cPresupuestoID_TIPOLOGIA: TSmallintField
      FieldName = 'ID_TIPOLOGIA'
      Required = True
    end
    object cPresupuestoIVA: TFloatField
      DefaultExpression = '0'
      FieldName = 'IVA'
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupuestoOBSERVACIONES: TBlobField
      FieldName = 'OBSERVACIONES'
      Size = 1
    end
    object cPresupuestoALICUOTA_MAT: TFloatField
      DefaultExpression = '0'
      FieldName = 'ALICUOTA_MAT'
    end
    object cPresupuestoSUBT_MO: TFloatField
      DefaultExpression = '0'
      FieldName = 'SUBT_MO'
    end
    object cPresupuestoSUBT_MAT: TFloatField
      DefaultExpression = '0'
      FieldName = 'SUBT_MAT'
    end
    object cPresupuestoINICIO: TSQLTimeStampField
      Alignment = taCenter
      FieldName = 'INICIO'
      Required = True
      EditMask = '!99/99/00;1;_'
    end
    object cPresupuestoCOMBINADO: TStringField
      DefaultExpression = #39'1'#39
      FieldName = 'COMBINADO'
      Size = 1
    end
    object cPresupuestorazon: TStringField
      FieldKind = fkLookup
      FieldName = 'razon'
      LookupDataSet = Datos.cProv1
      LookupKeyFields = 'ID_PROVEEDOR'
      LookupResultField = 'RAZON'
      KeyFields = 'ID_PROVEEDOR'
      Size = 40
      Lookup = True
    end
    object cPresupuestolocalidad: TStringField
      FieldKind = fkLookup
      FieldName = 'localidad'
      LookupDataSet = Datos.cLoc1
      LookupKeyFields = 'ID_LOCALIDAD'
      LookupResultField = 'LOCALIDAD'
      KeyFields = 'ID_LOCALIDAD'
      Size = 40
      Lookup = True
    end
    object cPresupuestoprovincia: TStringField
      FieldKind = fkLookup
      FieldName = 'provincia'
      LookupDataSet = Datos.cLoc1
      LookupKeyFields = 'ID_LOCALIDAD'
      LookupResultField = 'provincia'
      KeyFields = 'ID_LOCALIDAD'
      Size = 40
      Lookup = True
    end
    object cPresupuestotipologia: TStringField
      FieldKind = fkLookup
      FieldName = 'tipologia'
      LookupDataSet = Datos.cTipologia
      LookupKeyFields = 'ID_TIPOLOGIA'
      LookupResultField = 'TIPOLOGIA'
      KeyFields = 'ID_TIPOLOGIA'
      Size = 30
      Lookup = True
    end
    object cPresupuestototalGral: TFloatField
      FieldKind = fkCalculated
      FieldName = 'totalGral'
      DisplayFormat = '#,###,##0.00'
      Calculated = True
    end
    object cPresupuestoDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 60
    end
  end
  object sPresupuesto: TDataSource
    DataSet = cPresupuesto
    OnStateChange = sPresupuestoStateChange
    Left = 48
    Top = 184
  end
  object cCombinacion: TSQLClientDataSet
    CommandText = 'select * from COMBINACION where ID_MAESTRO = :id'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFloat
        Name = 'id'
        ParamType = ptInput
      end>
    AfterPost = cCombinacionAfterPost
    OnCalcFields = cCombinacionCalcFields
    OnNewRecord = cCombinacionNewRecord
    DBConnection = Datos.Con
    Left = 16
    Top = 216
    object cCombinacionID_MAESTRO: TFloatField
      FieldName = 'ID_MAESTRO'
      Required = True
    end
    object cCombinacionID_COMBINADO: TFloatField
      FieldName = 'ID_COMBINADO'
      Required = True
    end
    object cCombinaciondenominacion: TStringField
      FieldKind = fkLookup
      FieldName = 'denominacion'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'DENOMINACION'
      KeyFields = 'ID_COMBINADO'
      Size = 100
      Lookup = True
    end
    object cCombinacionfecha: TDateField
      FieldKind = fkLookup
      FieldName = 'fecha'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'FECHA'
      KeyFields = 'ID_COMBINADO'
      Lookup = True
    end
    object cCombinacionganancia: TFloatField
      FieldKind = fkLookup
      FieldName = 'ganancia'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'GANANCIA'
      KeyFields = 'ID_COMBINADO'
      DisplayFormat = '#,###,##0.00'
      Lookup = True
    end
    object cCombinacioniva: TFloatField
      FieldKind = fkLookup
      FieldName = 'iva'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'IVA'
      KeyFields = 'ID_COMBINADO'
      DisplayFormat = '#,###,##0.00'
      Lookup = True
    end
    object cCombinacionsubt_mat: TFloatField
      FieldKind = fkLookup
      FieldName = 'subt_mat'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'SUBT_MAT'
      KeyFields = 'ID_COMBINADO'
      DisplayFormat = '#,###,##0.00'
      Lookup = True
    end
    object cCombinacionalicuota_mat: TFloatField
      FieldKind = fkLookup
      FieldName = 'alicuota_mat'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'ALICUOTA_MAT'
      KeyFields = 'ID_COMBINADO'
      DisplayFormat = '#,###,##0.00'
      Lookup = True
    end
    object cCombinaciontotal: TFloatField
      FieldKind = fkLookup
      FieldName = 'total'
      LookupDataSet = cPresupTodos
      LookupKeyFields = 'ID_PRESUPUESTO'
      LookupResultField = 'TOTAL'
      KeyFields = 'ID_COMBINADO'
      DisplayFormat = '#,###,##0.00'
      Lookup = True
    end
    object cCombinacionsubConIVA: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'subConIVA'
    end
    object cCombinaciontotalFinal: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'totalFinal'
      DisplayFormat = '#,###,##0.00'
    end
    object cCombinacionsubtotalFinal: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'subtotalFinal'
    end
    object cCombinacionivaFinal: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'ivaFinal'
    end
    object cCombinacionaggSubtotal: TAggregateField
      FieldName = 'aggSubtotal'
      Visible = True
      Active = True
      DisplayFormat = '#,###,##0.00'
      Expression = 'sum(subtotalFinal)'
    end
    object cCombinacionaggIVA: TAggregateField
      FieldName = 'aggIVA'
      Visible = True
      Active = True
      DisplayFormat = '#,###,##0.00'
      Expression = 'sum(ivaFinal)'
    end
    object cCombinacionaggTotal: TAggregateField
      FieldName = 'aggTotal'
      Visible = True
      Active = True
      DisplayFormat = '#,###,##0.00'
      Expression = 'sum(totalFinal)'
    end
  end
  object sCombinacion: TDataSource
    DataSet = cCombinacion
    Left = 48
    Top = 216
  end
  object sTipologia: TDataSource
    DataSet = cdsTipologia
    OnDataChange = sTipologiaDataChange
    Left = 256
    Top = 176
  end
  object sPresupGral: TDataSource
    DataSet = Datos.qryVar5
    Left = 272
    Top = 336
  end
  object cPresupTodos: TSQLClientDataSet
    CommandText = 
      'select ALICUOTA_MAT, DENOMINACION, FECHA, GANANCIA, IVA, SUBT_MA' +
      'T, SUBT_MO, TOTAL, ID_PRESUPUESTO from PRESUPUESTO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    OnNewRecord = cCombinacionNewRecord
    DBConnection = Datos.Con
    Left = 24
    Top = 304
    object cPresupTodosID_PRESUPUESTO: TFloatField
      FieldName = 'ID_PRESUPUESTO'
      Required = True
    end
    object cPresupTodosDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Required = True
      Size = 50
    end
    object cPresupTodosALICUOTA_MAT: TFloatField
      FieldName = 'ALICUOTA_MAT'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupTodosFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
    end
    object cPresupTodosGANANCIA: TFloatField
      FieldName = 'GANANCIA'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupTodosIVA: TFloatField
      FieldName = 'IVA'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupTodosSUBT_MAT: TFloatField
      FieldName = 'SUBT_MAT'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupTodosSUBT_MO: TFloatField
      FieldName = 'SUBT_MO'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cPresupTodosTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = '#,###,##0.00'
    end
  end
  object sPrecupTodos: TDataSource
    DataSet = cPresupTodos
    Left = 56
    Top = 304
  end
  object cdsTipologia: TSQLClientDataSet
    CommandText = 'TIPOLOGIA'
    Aggregates = <>
    Filter = 'TIPOLOGIA <> '#39'COMBINADO'#39
    Filtered = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    OnNewRecord = cCombinacionNewRecord
    CommandType = ctTable
    DBConnection = Datos.Con
    Left = 224
    Top = 176
    object cdsTipologiaID_TIPOLOGIA: TSmallintField
      FieldName = 'ID_TIPOLOGIA'
      Required = True
    end
    object cdsTipologiaTIPOLOGIA: TStringField
      FieldName = 'TIPOLOGIA'
      Required = True
      Size = 40
    end
  end
end
